www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\Rss.asp
<!--#include file="Include/LiangjingConn.asp"--> <!--#include file="Include/Function.asp"--> <!--#include file="Include/Rss_Head.asp"--> <% set rs=conn.execute(sql) if not rs.eof then do while not rs.eof Src_Img="" Src_Desc="" Src_Desc = Rs("Src_Desc") if Web_IsUploadShowImg = 1 then if rs("src_img")<>Web_Noimage and isnull(rs("src_img"))=false then ImgPath_2 = Wodig.Pub_SetImgWH(Rs("Src_Img"),Web_ContentImgMaxWidth,Web_ContentImgMaxHeight) Src_Img="<img "&ImgPath_2&" align='"&Web_ContentImgLocation&"'>" Src_Img=AddSiteURL(Src_Img) end if end if if Src_Desc <> "" then Src_Desc = WoDig.DecodeFilter(Src_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,EMBED,DIV,ONLOAD,ONCLICK,ONDBCLICK") Src_Desc = WoDig.get_StrLen(Src_Desc,Web_ContentTxtNum) Src_Desc=AddSiteURL(Src_Desc) end if %> <item> <title><![CDATA[<%=rs("Src_Title")%>]]></title> <link><%=Web_HTTP&"SrcShow.asp?Src_ID="&rs("Src_ID")%></link> <author><%=Web_Name&"_"&Web_UserCName&":"&GetUserName(rs("Src_UserID"))%></author> <category><![CDATA[<%=GetCategory(rs("Src_ChildID"))%>]]></category> <pubDate><%=DateToStr(rs("Src_HitUpdate"),"w,d m y H:I:S")%></pubDate> <guid><%=Web_HTTP&"SrcShow.asp?Src_ID="&rs("Src_ID")%></guid> <description><![CDATA[<%=Src_Img&Src_Desc%>]]></description> </item> <% rs.movenext loop end if %> </channel> </rss>